home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / drivers / printers / Shell Printer Drivers.src.lnx / PrintASCII (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  1.7 KB  |  42 lines
  1. pRINTascii
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.0
  4. GEOwRITE    v2.1
  5. .sOURCE CODE FOR tEXT PART OF sHELL pRINTER dRIVER FOR STANDARD ascii PRINTERS.
  6. .INCLUDEsHELLzERO
  7. .PSECT
  8. @tEXTaDDR
  9. @RsTARTtE
  10. JSRoPENcHANNEL
  11. LDX#MbEGINtEXT
  12. BNEcONTtEXT
  13. @RpRINTtE
  14. JSRoPENcHANNEL
  15. 50$LDY#0
  16. LDA(R0),Y
  17. BEQeXITtEXT
  18. 60$INCR0
  19. BNE70$
  20. INCR0+1
  21. 70$CMP#cr
  22. BEQ80$
  23. CMP#lf
  24. BNE90$
  25. 80$LDX#MtEXTlINEfEED
  26. JSRsENDmESSAGE
  27. BVC50$
  28. 90$JSRsENDbYTE
  29. BVC50$
  30. @RsTOPtEX
  31. JSRoPENcHANNEL
  32. LDX#MeNDtEXT
  33. @cONTtEXT
  34. JSRsENDmESSAGE
  35. @eXITtEXT
  36. JSRcLOSEcHANNEL
  37. LDX#0
  38. hgeos PRINT ascii TEXT FILE
  39. pAGE: page
  40. pRINTED ON: dateaT: timefILE: pRINTascii
  41. -----------------------------------------------------------------------------------------------
  42.